(comment regpdl 10000. specpdl 2000. fxpdl 1000. flpdl 500.)
(progn
 (help)
 (fasload demon fas dsk (aid rpg))
 (fasload hunkp fas dsk (mrs lsp))
 (fasload backq fas dsk (mac lsp))
 (fasload sharpm fas dsk (mac lsp))
;(fasload edit fas dsk (mac lsp))
;(fasload match fas dsk (mac lsp))
 (fasload let fas dsk (mac lsp))
 (fasload defvst fas dsk (mac lsp))
 (fasload setf fas dsk (mac lsp))
;(fasload struct ofa dsk (mac lsp))
 (fasload struct fas dsk (mac lsp))
 (fasload defmac fas dsk (mac lsp))
 (fasload format mit dsk (mac lsp))
;(fasload loop fas dsk (mac lsp))
 (fasload sort fas dsk (mac lsp))
 (fasload debug fas dsk (mac lsp))
;(fasload trace fas dsk (mac lsp))
 (setq em:no-init t)
 (fasload emaclsp fas dsk (mac lsp))
 (fasload eaid fas dsk (mac lsp))
 (herald "ATC.FAS" "")
 (load '|atc.fas|)
 (herald "ATCON.FAS" "")
 (load '|atcon.fas|)
 (herald "CONTEX.FAS" "")
 (load '|contex.fas[at,lgc]|)
 (herald "CSREAS.FAS" "")
 (load '|csreas.fas|)
 (load '|tweety.2[at,lgc]|)
 (herald "TWEETY.2" "")
 (grindef)
 (close infile)
 (inpush -1)
 (gc)
 (*rset (nouuo ()))
 (suspend '|save sys ATREAS|)
 (cond (si:ecalledp
	(setq -em:herald- ())
	(em:mail-interface-initialize)))
 (cond ((and (not 
	      (equal (setq udir (status udir)) '(mrs lsp)))
	    (setq inifile
		  (probef (append '(atreas ini dsk) (ncons udir)))))
	(load inifile)))
 (terpri)(princ '|ATREAS ready.|)(terpri))